home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-01
/
wavepool.zip
/
EXP.WPL
< prev
next >
Wrap
Text File
|
1992-04-08
|
475b
|
29 lines
#
# EXP Wavepool program
#
# Copyright 1992, Data Assist, Inc.
#
BEGIN {
screate("exp.sou")
for (x=500; x<=800; ++x) {
hertz = exp(x/100);
print hertz;
sinwave(hertz, x/10);
quiet(1);
}
for (x=800; x>=100; --x) {
hertz = exp(x/100);
print hertz;
sinwave(hertz, x/10);
quiet(1);
}
quiet(10);
sclose(0);
sndvoc("exp.sou", "exp.voc");
}